home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b6.d64
/
load'screen.l
< prev
next >
Wrap
Text File
|
2007-02-28
|
293b
|
12 lines
9000 PROC LOAD'SCREEN(FILENAME$) CLOSED
9010 DIM NAME$ OF 20, A$ OF 40
9020 A$(1:40):=" " //40 SPACES
9030 NAME$:=FILENAME$+".HRG"
9040 SETGRAPHIC 0
9050 FULLSCREEN
9060 HIDETURTLE
9070 PENCOLOR 1
9080 FOR Y:=0 TO 192 STEP 8 DO PLOTTEXT 0,Y,A$
9090 OBJLOAD(NAME$,8)
9100 ENDPROC LOAD'SCREEN